home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 12
/
012.d81
/
july 4th
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
9KB
|
271 lines
1 gosub60000
10 rem have a safe and sane july 4th
20 rem ** by - m. n. carswell
30 rem ** 486 s. steel bridge rd. s.e.
40 rem ** eatonton, ga. 31024
50 rem ** sound by daughter judy **
51 restore
52 sid=54272:fort=0to24:pokesid+t,0:next
53 pokesid+24,15:pokesid+5,85:pokesid+6,85
54 ff=10
55 print"[147][144]":poke53281,1
56 print"one moment please....."
57 print:print"please turn your volume up....."
60 rem sprite data
65 v=53248:poke2040,192:poke2041,193
70 pokev+39,1:pokev+40,1
75 pokev+29,3:pokev+23,3
80 pokev+16,0:pokev,160:pokev+2,160
85 pokev+1,117:pokev+3,117
90 forrd=0to127:read da:poke12288+rd,da:next
100 print"[147]"
110 n$= " are you ready?"
120 for a=1 to len(n$)
130 print"[147]":
140 print"":print right$(n$,a):gosub5000
150 nexta
160 for j=1 to 500:next:pokesid+4,0:forj=1to1500:next
162 poke198,0:wait198,1:getjj$:ifjj$<>"y"then162
165 print"[147]"
170 n$= " then lets go"
180 for a=1 to len(n$)
185 print"[147]"
190 print"":print right$(n$,a):gosub6000
200 nexta
210 for j=1 to 500:next:pokesid+4,0:forj=1to1500:next
490 print"[147]"
499 rem start color bars
500 poke 53280,1:poke 53281,14
510 for j=9to 0step-1:poke1229+j,160:poke55501+j,1:gosub5000:next
520 for j=0to9:poke 1269+j,160:poke 55541+j,1:gosub5000:next
530 for j=80 to 0step-40:poke1199+j,42:poke 55471 +j,6:gosub6000:next
540 for j=10to0 step-1:poke 1188+j,42:poke 55460+j,6:gosub6000:next
550 for j=0to80 step40:poke1228+j,42:poke55500+j,6:gosub6000:next
560 for j=0to 10step1:poke1309+j,42:poke 55581+j,6:gosub6000:next
570 for j=160to0step-40:poke1160+j,160:poke 55432+j,2:gosub5000:next
580 for j=12to0step-1:poke1147+j,160:poke 55419+j,2:gosub5000:next
590 for j =0 to 160step40:poke1187+j,160:poke55459+j,2:gosub5000:next
600 for j=0 to 12 step1:poke1348+j,160:poke55620+j,2:gosub5000:next
610 for j=240to0step-40:poke1121+j,160:poke 55393+j,1:gosub6000:next
620 for j=14to0step-1:poke1106+j,160:poke55378+j,1:gosub6000:next
630 for j=0to240step40:poke1146+j,160:poke55418+j,1:gosub6000:next
640 for j=0to14step1:poke1387+j,160:poke55659+j,1:gosub6000:next
650 for j=320 to 0 step -40:poke1082+j,42:poke55354+j,6:gosub5000:next
660 for j=16to0step-1:poke1065+j,42:poke55337+j,6:gosub5000:next
670 for j=0to320 step40:poke1105+j,42:poke55377+j,6:gosub5000:next
680 for j=0 to16 step1:poke1426+j,42:poke55698+j,6:gosub5000:next
690 for j=400 to 0 step-40:poke1043+j,160:poke55315+j,2:gosub6000:next
700 for j=18to0step-1:poke1024+j,160:poke55296+j,2:gosub6000:next
710 for j=0 to400 step40:poke1064+j,160:poke55336+j,2:gosub6000:next
720 for j=0to38step1:poke1465+j,160:poke55737+j,2:gosub5000:next
730 for j=400to40step-40:poke1063+j,160:poke55335+j,2:gosub5000:next
740 for j=19to0step-1:poke1044+j,160:poke55316+j,2:gosub5000:next
750 for j=0to400step40:poke1084+j,160:poke55356+j,2:gosub5000:next
760 for j=0to17step1:poke1445+j,42:poke55717+j,6:gosub6000:next
770 for j=320to0step-40:poke1102+j,42:poke55374+j,6:gosub6000:next
780 for j=17to0step-1:poke1085+j,42:poke55357+j,6:gosub6000:next
790 for j=0to280 step40:poke1125+j,42:poke55397+j,6:gosub6000:next
800 for j=0to15step1:poke1406+j,160:poke55678+j,1:gosub5000:next
810 for j=240to0step-40:poke1141+j,160:poke55413+j,1:gosub5000:next
820 for j=14to0step-1:poke1126+j,160:poke55398+j,1:gosub5000:next
830 for j=0to200step40:poke1166+j,160:poke55438+j,1:gosub5000:next
840 forj=0to13step1:poke1367+j,160:poke55639+j,2:gosub6000:next
850 for j=160 to0step-40:poke1180+j,160:poke55452+j,2:gosub6000:next
860 for j=13 to 1step-1:poke1166+j,160:poke55438+j,2:gosub6000:next
870 for j=0to120step40:poke1207+j,160:poke55479+j,2:gosub6000:next
880 forj=0to11step1:poke1328+j,42:poke55600+j,6:gosub5000:next
890 for j=80to0step-40:poke1219+j,42:poke55491+j,6:gosub5000:next
900 for j=11to1step-1:poke1207+j,42:poke55479+j,6:gosub5000:next
910 for j=0to80step40:poke1248+j,42:poke55520+j,6:gosub5000:next
920 for j=0to9step1:poke1289+j,160:poke55561+j,1:gosub6000:next
930 for j=9to0step-1:poke1249+j,160:poke55521+j,1:gosub6000:next
940 for j=0 to9step1:poke1809+j,160:poke56081+j,1:gosub6000:next
950 for j=9to0step-1:poke1769+j,160:poke56041+j,1:gosub6000:next
960 for j=0to80step40:poke1768+j,42:poke56040+j,6:gosub5000:next
970 for j=1 to 11step1:poke1848+j,42:poke56120+j,6:gosub5000:next
980 for j=80to0step-40:poke1739+j,42:poke56011+j,6:gosub5000:next
990 for j=11 to0step-1:poke1728+j,42:poke56000+j,6:gosub5000:next
1000 for j=0to160step40:poke1727+j,160:poke55999+j,2:gosub6000:next
1010 for j=1to13step1:poke1887+j,160:poke56159+j,2:gosub6000:next
1020 for j=160 to0step-40:poke1700+j,160:poke55972+j,2:gosub6000:next
1030 for j=13 to0step-1:poke1687+j,160:poke55959+j,2:gosub6000:next
1040 for j=0to240 step40:poke1686+j,160:poke55958+j,1:gosub5000:next
1050 for j=0to14 step1:poke1927+j,160:poke56199+j,1:gosub5000:next
1060 forj=240to0step-40:poke1661+j,160:poke55933+j,1:gosub5000:next
1070 for j=14to0step-1:poke1646+j,160:poke55918+j,1:gosub5000:next
1080 for j=0to320step40:poke1645+j,42:poke55917+j,6:gosub6000:next
1090 for j=0to16step1:poke1966+j,42:poke56238+j,6:gosub 6000:next
1100 for j=320to0step-40:poke1622+j,42:poke55894+j,6:gosub6000:next
1110 for j=16 to0step-1:poke1605+j,42:poke55877+j,6:gosub6000:next
1120 for j=0to400step40:poke1604+j,160:poke55876+j,2:gosub5000:next
1130 for j=0to18step1:poke2005+j,160:poke56277+j,2:gosub5000:next
1140 for j=400to0step-40:poke1583+j,160:poke55855+j,2:gosub5000:next
1150 for j=38to0step-1:poke1544+j,160:poke55816+j,2:gosub5000:next
1160 for j=0to400step40:poke1584+j,160:poke55856+j,2:gosub6000:next
1170 for j=0to18step1:poke1985+j,160:poke56257+j,2:gosub6000:next
1180 for j=360to0step-40:poke1603+j,160:poke55875+j,2:gosub6000:next
1190 for j=17to0step-1:poke1585+j,42:poke55857+j,6:gosub5000:next
1200 for j=0to320step40:poke1625+j,42:poke55897+j,6:gosub5000:next
1210 for j=0to16step1:poke1946+j,42:poke56218+j,6:gosub5000:next
1220 for j=280to0step-40:poke1642+j,42:poke55914+j,6:gosub5000:next
1230 for j=15to0step-1:poke1626+j,160:poke55898+j,1:gosub6000:next
1240 for j=0to240step40:poke1666+j,160:poke55938+j,1:gosub6000:next
1250 for j=0to14 step1:poke1907+j,160:poke56179+j,1:gosub6000:next
1260 for j=200to0step-40:poke1681+j,160:poke55953+j,1:gosub6000:next
1270 for j=13to0step-1:poke1667+j,160:poke55939+j,2:gosub5000:next
1280 for j=0to160step40:poke1707+j,160:poke55979+j,2:gosub5000:next
1290 for j=0to12step1:poke1868+j,160:poke56140+j,2:gosub5000:next
1300 for j=120to0step-40:poke1720+j,160:poke55992+j,2:gosub5000:next
1310 for j=11to0step-1:poke1708+j,42:poke55980+j,6:gosub6000:next
1320 for j=0to80step40:poke1748+j,42:poke56020+j,6:gosub6000:next
1330 for j=0to10step1:poke1829+j,42:poke56101+j,6:gosub6000:next
1340 for j=40to0step-40:poke1759+j,42:poke56031+j,6:gosub6000:next
1350 forj=9to0step-1:poke1749+j,160:poke56021+j,1:gosub5000:next
1360 for j=0to9step1:poke1789+j,160:poke56061+j,1:gosub5000:next
1370 forj=0to39step1:poke1504+j,160:poke55776+j,1:gosub6000:next
1380 poke53281,1
1385 forj=1to500:next:forj=4to18step7:pokesid+j,0:next
1390 print"swimmingboating"
1400 print"hikingcamping
1410 [153]"fishingracing"
1420 [153]"runningskiing"
1425 [129]j[178]1[164]500:[130]
1430 [143] have a safe july 4th
1440 [153]""
1450 [153]""
1460 a$[178]"have a safe and sane july 4th"
1470 a[178][195](a$):[139]a[173]2[179][177] [181](a[173]2) [167] a$[178]" "[170]a$:[137] 1470
1480 [129] i[178]1[164]a[173]2
1490 [153] [163]20[171]i);[200](a$,i);[201](a$,i):[141]7000
1500 [153]"on";
1510 [129] zz[178]1[164]300:[130] zz
1520 [130] i
1532 [129] x[178]1[164]2000:[130]
1535 [141] 4000
1536 [129]j[178]1[164]500:[130]
1537 [153]"load"
1538 [151]53280,1:[151]53281,14
2500 [143] ***ending***
2600 [151]sid[170]5,85:[151]sid[170]6,85
2601 [151]v[170]21,1
2605 [129]x[178]1[164]3:[135]dd(x):[130]
2610 [151]sid[170]24,15
2615 [129]t[178]1[164]18:[153]:[130]
2616 [153][163]12)"have a nice day!"
2617 [129]x[178]1[164]500:[130]
2620 [129] a[178]1[164]15:[141]6000:[151]sid[170]24,15[171]a
2625 [139][181](a[173]2)[178]a[173]2[167][151]v[170]21,2:[137]2627
2626 [151]v[170]21,1
2627 [129]t[178]1[1